Voorbeeld van de functie FileAttr

Dit voorbeeld maakt gebruik van de functie FileAttr om de bestandsmodus en de bestandsafhandeling van een open bestand te geven. De bestandsingang wordt alleen op 16-bits-systemen geretourneerd. Als u op 32-bits-systemen 2 als tweede argument opgeeft, wordt een fout gegenereerd.

Dim FileNum, Mode, Handle
FileNum = 1    ' Assign file number.
Open "TESTBSTD" For Append As FileNum    ' Open file.
Mode = FileAttr(FileNum, 1)    ' Returns 8 (Append file mode).
Handle = FileAttr(FileNum, 2)    ' Returns file handle.
Close FileNum    ' Close file.